/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / dev / basic / DLL.lha / DLL / DLLEXAMPLE.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 44 4c 4c 20 45 58 41 | 4d 50 4c 45 20 46 49 4c |;DLL EXA|MPLE FIL|
|00000010| 45 2e 2e 2e 2e 73 65 65 | 20 64 6c 6c 2e 72 65 61 |E....see| dll.rea|
|00000020| 64 6d 65 20 28 6e 65 65 | 64 73 20 44 4c 4c 20 56 |dme (nee|ds DLL V|
|00000030| 33 2e 30 29 00 3b 00 3b | 41 6c 73 6f 20 6e 65 65 |3.0).;.;|Also nee|
|00000040| 64 73 20 41 6d 69 67 61 | 4c 69 62 73 2e 72 65 73 |ds Amiga|Libs.res|
|00000050| 20 72 65 73 69 64 65 6e | 74 21 00 3b 00 3b 20 4e | residen|t!.;.; N|
|00000060| 65 65 64 73 20 23 44 4c | 4c 5f 54 52 41 50 5f 45 |eeds #DL|L_TRAP_E|
|00000070| 52 52 4f 52 53 20 3d 20 | 31 00 3b 00 80 12 20 46 |RRORS = |1.;... F|
|00000080| 61 74 61 6c 5f 45 72 72 | 6f 72 2e 62 62 32 00 80 |atal_Err|or.bb2..|
|00000090| 12 20 43 6f 6d 70 61 72 | 65 5f 53 74 72 69 6e 67 |. Compar|e_String|
|000000a0| 73 5f 53 2e 62 62 32 00 | 80 12 20 22 64 6c 6c 2e |s_S.bb2.|.. "dll.|
|000000b0| 62 62 32 22 00 3b 58 49 | 4e 43 4c 55 44 45 20 22 |bb2".;XI|NCLUDE "|
|000000c0| 64 6c 6c 73 6f 72 74 2e | 62 62 32 22 20 20 20 20 |dllsort.|bb2"    |
|000000d0| 20 20 3b 69 6e 63 6c 75 | 64 65 20 64 6c 6c 20 71 |  ;inclu|de dll q|
|000000e0| 75 69 63 6b 20 73 6f 72 | 74 20 72 6f 75 74 69 6e |uick sor|t routin|
|000000f0| 65 73 00 00 3b 66 69 72 | 73 74 20 63 72 65 61 74 |es..;fir|st creat|
|00000100| 65 20 79 6f 75 72 20 69 | 74 65 6d 2c 20 74 68 61 |e your i|tem, tha|
|00000110| 74 20 63 6f 6e 74 61 69 | 6e 73 20 61 20 6e 6f 64 |t contai|ns a nod|
|00000120| 65 2e 64 6c 6c 20 61 73 | 20 74 68 65 20 66 69 72 |e.dll as| the fir|
|00000130| 73 74 20 76 61 72 69 61 | 62 6c 65 2c 20 73 6f 00 |st varia|ble, so.|
|00000140| 3b 74 68 65 20 6c 69 73 | 74 20 77 6f 72 6b 73 20 |;the lis|t works |
|00000150| 63 6f 72 72 65 63 74 6c | 79 00 00 80 01 20 2e 62 |correctl|y.... .b|
|00000160| 75 6d 69 74 65 6d 00 20 | 20 6e 6f 64 65 2e 64 6c |umitem. | node.dl|
|00000170| 6c 20 20 20 20 20 20 20 | 20 3b 6e 6f 20 70 6f 69 |l       | ;no poi|
|00000180| 6e 74 65 72 2e 2e 2e 6e | 65 65 64 73 20 74 6f 20 |nter...n|eeds to |
|00000190| 61 63 74 75 61 6c 6c 79 | 20 62 65 20 69 6e 20 6c |actually| be in l|
|000001a0| 69 6e 65 00 20 20 70 61 | 64 2e 77 00 20 20 73 74 |ine.  pa|d.w.  st|
|000001b0| 72 69 6e 67 2e 73 00 20 | 20 6e 75 6d 62 65 72 2e |ring.s. | number.|
|000001c0| 77 00 20 20 64 75 64 65 | 2e 73 00 20 20 71 75 69 |w.  dude|.s.  qui|
|000001d0| 63 6b 2e 71 00 20 20 77 | 6f 72 64 2e 73 00 20 20 |ck.q.  w|ord.s.  |
|000001e0| 65 74 63 2e 62 00 20 20 | 70 61 64 31 2e 62 00 80 |etc.b.  |pad1.b..|
|000001f0| 02 20 80 01 00 00 00 3b | 6e 65 78 74 2c 20 64 65 |. .....;|next, de|
|00000200| 66 69 6e 65 20 79 6f 75 | 72 20 63 75 72 72 65 6e |fine you|r curren|
|00000210| 74 20 69 74 65 6d 20 76 | 61 72 69 61 62 6c 65 2e |t item v|ariable.|
|00000220| 2e 2e 6d 75 73 74 20 62 | 65 20 61 20 70 6f 69 6e |..must b|e a poin|
|00000230| 74 65 72 20 74 6f 20 79 | 6f 75 72 20 6e 65 77 74 |ter to y|our newt|
|00000240| 79 70 65 00 00 80 33 20 | 2e 62 75 6d 69 74 65 6d |ype...3 |.bumitem|
|00000250| 20 2a 6d 79 69 74 65 6d | 00 00 3b 53 74 6f 70 00 | *myitem|..;Stop.|
|00000260| 00 3b 6e 65 78 74 2c 20 | 79 6f 75 20 6e 65 65 64 |.;next, |you need|
|00000270| 20 74 6f 20 49 4e 49 54 | 49 41 4c 49 5a 45 20 79 | to INIT|IALIZE y|
|00000280| 6f 75 72 20 6c 69 73 74 | 2e 20 59 6f 75 20 6e 65 |our list|. You ne|
|00000290| 65 64 20 74 6f 20 73 65 | 74 20 74 68 65 20 72 65 |ed to se|t the re|
|000002a0| 74 75 72 6e 20 76 61 6c | 75 65 00 3b 61 73 20 79 |turn val|ue.;as y|
|000002b0| 6f 75 72 20 6c 69 73 74 | 20 68 65 61 64 65 72 2c |our list| header,|
|000002c0| 20 77 68 69 63 68 20 69 | 73 20 75 73 65 64 20 74 | which i|s used t|
|000002d0| 6f 20 70 61 73 73 20 74 | 6f 20 61 6c 6c 20 6f 74 |o pass t|o all ot|
|000002e0| 68 65 72 20 64 6c 6c 20 | 72 6f 75 74 69 6e 65 73 |her dll |routines|
|000002f0| 00 00 2a 6d 79 6c 69 73 | 74 2e 64 6c 6c 68 65 61 |..*mylis|t.dllhea|
|00000300| 64 3d 49 4e 49 54 5f 4c | 49 53 54 7b 26 2a 6d 79 |d=INIT_L|IST{&*my|
|00000310| 69 74 65 6d 2c 80 2f 20 | 2e 62 75 6d 69 74 65 6d |item,./ |.bumitem|
|00000320| 7d 00 00 00 3b 63 68 65 | 63 6b 20 74 6f 20 73 65 |}...;che|ck to se|
|00000330| 65 20 69 66 20 74 68 65 | 20 6c 69 73 74 20 69 6e |e if the| list in|
|00000340| 69 74 61 6c 69 7a 65 64 | 20 63 6f 72 72 65 63 74 |italized| correct|
|00000350| 6c 79 00 00 80 0b 20 2a | 6d 79 6c 69 73 74 3d 30 |ly.... *|mylist=0|
|00000360| 20 80 21 20 80 02 00 00 | 00 3b 6e 6f 77 20 79 6f | .! ....|.;now yo|
|00000370| 75 20 4d 55 53 54 20 73 | 65 74 20 61 6c 6c 20 6e |u MUST s|et all n|
|00000380| 6f 6e 20 73 74 72 69 6e | 67 20 76 61 72 69 61 62 |on strin|g variab|
|00000390| 6c 65 73 20 69 6e 20 79 | 6f 75 72 20 69 74 65 6d |les in y|our item|
|000003a0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 2d 31 2c 20 | pointer| to -1, |
|000003b0| 61 6e 64 20 61 6c 6c 20 | 73 74 72 69 6e 67 73 20 |and all |strings |
|000003c0| 74 6f 20 22 22 00 00 2a | 6d 79 69 74 65 6d 5c 70 |to ""..*|myitem\p|
|000003d0| 61 64 3d 2d 31 2c 22 22 | 2c 2d 31 2c 22 22 2c 2d |ad=-1,""|,-1,"",-|
|000003e0| 31 2c 22 22 2c 2d 31 2c | 2d 31 00 00 00 3b 6e 6f |1,"",-1,|-1...;no|
|000003f0| 77 20 79 6f 75 20 4d 55 | 53 54 20 63 61 6c 6c 20 |w you MU|ST call |
|00000400| 74 68 65 20 73 65 74 20 | 73 74 72 69 6e 67 20 72 |the set |string r|
|00000410| 6f 75 74 69 6e 65 2c 20 | 73 6f 20 64 6c 6c 20 77 |outine, |so dll w|
|00000420| 69 6c 6c 20 72 65 6d 65 | 6d 62 65 72 20 77 68 65 |ill reme|mber whe|
|00000430| 72 65 20 79 6f 75 72 20 | 73 74 72 69 6e 67 73 00 |re your |strings.|
|00000440| 3b 61 72 65 20 69 6e 20 | 79 6f 75 72 20 69 74 65 |;are in |your ite|
|00000450| 6d 2c 20 61 6e 64 20 64 | 65 61 6c 6c 6f 63 61 74 |m, and d|eallocat|
|00000460| 65 20 74 68 65 6d 20 63 | 6f 72 72 65 63 74 6c 79 |e them c|orrectly|
|00000470| 2e 20 28 79 6f 75 20 6d | 75 73 74 20 64 6f 20 74 |. (you m|ust do t|
|00000480| 68 69 73 2c 20 65 76 65 | 6e 00 3b 69 66 20 79 6f |his, eve|n.;if yo|
|00000490| 75 72 20 69 74 65 6d 73 | 20 64 6f 20 6e 6f 74 20 |ur items| do not |
|000004a0| 68 61 76 65 20 61 6e 79 | 20 73 74 72 69 6e 67 73 |have any| strings|
|000004b0| 21 29 00 00 53 45 54 5f | 53 54 52 49 4e 47 5f 50 |!)..SET_|STRING_P|
|000004c0| 4f 53 49 54 49 4f 4e 53 | 7b 2a 6d 79 6c 69 73 74 |OSITIONS|{*mylist|
|000004d0| 7d 00 00 00 3b 6e 6f 77 | 20 77 65 20 68 61 76 65 |}...;now| we have|
|000004e0| 20 61 20 62 6c 61 6e 6b | 20 6c 69 73 74 2c 20 72 | a blank| list, r|
|000004f0| 65 61 64 79 20 66 6f 72 | 20 61 64 64 5f 69 74 65 |eady for| add_ite|
|00000500| 6d 00 00 80 16 20 6c 6f | 6f 70 3d 31 20 80 18 20 |m.... lo|op=1 .. |
|00000510| 31 30 00 00 20 20 41 44 | 44 5f 49 54 45 4d 7b 2a |10..  AD|D_ITEM{*|
|00000520| 6d 79 6c 69 73 74 2c 80 | 2f 20 2e 62 75 6d 69 74 |mylist,.|/ .bumit|
|00000530| 65 6d 7d 20 20 20 20 20 | 20 3b 6d 75 73 74 20 70 |em}     | ;must p|
|00000540| 61 73 73 20 74 68 65 20 | 73 69 7a 65 6f 66 20 79 |ass the |sizeof y|
|00000550| 6f 75 72 20 69 74 65 6d | 20 74 6f 20 61 64 64 20 |our item| to add |
|00000560| 74 6f 20 74 68 65 20 6c | 69 73 74 00 00 20 20 2a |to the l|ist..  *|
|00000570| 6d 79 69 74 65 6d 5c 6e | 75 6d 62 65 72 3d 6c 6f |myitem\n|umber=lo|
|00000580| 6f 70 00 00 80 17 20 6c | 6f 6f 70 00 00 52 45 53 |op.... l|oop..RES|
|00000590| 45 54 5f 4c 49 53 54 7b | 2a 6d 79 6c 69 73 74 7d |ET_LIST{|*mylist}|
|000005a0| 00 00 80 0c 20 4e 45 58 | 54 5f 49 54 45 4d 7b 2a |.... NEX|T_ITEM{*|
|000005b0| 6d 79 6c 69 73 74 7d 00 | 20 20 dd 82 20 2a 6d 79 |mylist}.|  .. *my|
|000005c0| 69 74 65 6d 5c 6e 75 6d | 62 65 72 2c 22 20 6c 69 |item\num|ber," li|
|000005d0| 73 74 20 69 74 65 6d 20 | 68 65 72 65 22 00 80 c1 |st item |here"...|
|000005e0| 00 00 3b 53 74 6f 70 00 | 00 80 0c 20 50 52 45 56 |..;Stop.|... PREV|
|000005f0| 5f 49 54 45 4d 7b 2a 6d | 79 6c 69 73 74 7d 00 20 |_ITEM{*m|ylist}. |
|00000600| 20 dd 82 20 2a 6d 79 69 | 74 65 6d 5c 6e 75 6d 62 | .. *myi|tem\numb|
|00000610| 65 72 2c 22 20 6c 69 73 | 74 20 69 74 65 6d 20 68 |er," lis|t item h|
|00000620| 65 72 65 20 22 2c 47 45 | 54 5f 4c 49 53 54 5f 50 |ere ",GE|T_LIST_P|
|00000630| 4f 53 7b 2a 6d 79 6c 69 | 73 74 7d 00 80 c1 00 00 |OS{*myli|st}.....|
|00000640| 3b 53 74 6f 70 00 00 dd | 82 20 22 6e 75 6d 62 65 |;Stop...|. "numbe|
|00000650| 72 20 6f 66 20 69 74 65 | 6d 73 20 69 6e 20 6c 69 |r of ite|ms in li|
|00000660| 73 74 20 22 2c 47 45 54 | 5f 4c 49 53 54 5f 53 49 |st ",GET|_LIST_SI|
|00000670| 5a 45 7b 2a 6d 79 6c 69 | 73 74 7d 00 00 3b 53 74 |ZE{*myli|st}..;St|
|00000680| 6f 70 00 00 80 16 20 6c | 6f 6f 70 3d 30 20 80 18 |op.... l|oop=0 ..|
|00000690| 20 39 00 00 20 20 dd 82 | 20 22 4f 72 69 67 69 6e | 9..  ..| "Origin|
|000006a0| 61 6c 20 4c 69 73 74 20 | 70 6f 73 69 74 69 6f 6e |al List |position|
|000006b0| 20 3d 20 22 2c 47 45 54 | 5f 4c 49 53 54 5f 50 4f | = ",GET|_LIST_PO|
|000006c0| 53 7b 2a 6d 79 6c 69 73 | 74 7d 3a 50 55 53 48 5f |S{*mylis|t}:PUSH_|
|000006d0| 49 54 45 4d 7b 2a 6d 79 | 6c 69 73 74 7d 00 20 20 |ITEM{*my|list}.  |
|000006e0| 70 6f 73 2e 6c 3d bc 07 | 28 31 30 29 00 20 20 53 |pos.l=..|(10).  S|
|000006f0| 45 54 5f 4c 49 53 54 5f | 50 4f 53 7b 2a 6d 79 6c |ET_LIST_|POS{*myl|
|00000700| 69 73 74 2c 70 6f 73 7d | 00 20 20 dd 82 20 22 52 |ist,pos}|.  .. "R|
|00000710| 61 6e 64 6f 6d 20 6c 69 | 73 74 20 73 65 74 20 70 |andom li|st set p|
|00000720| 6f 73 69 74 69 6f 6e 20 | 3d 20 22 2c 70 6f 73 2c |osition |= ",pos,|
|00000730| 22 20 69 73 20 69 74 65 | 6d 20 6e 75 6d 62 65 72 |" is ite|m number|
|00000740| 20 22 2c 2a 6d 79 69 74 | 65 6d 5c 6e 75 6d 62 65 | ",*myit|em\numbe|
|00000750| 72 00 20 20 50 55 53 48 | 5f 49 54 45 4d 7b 2a 6d |r.  PUSH|_ITEM{*m|
|00000760| 79 6c 69 73 74 7d 00 20 | 20 50 4f 50 5f 49 54 45 |ylist}. | POP_ITE|
|00000770| 4d 7b 2a 6d 79 6c 69 73 | 74 7d 3a 50 4f 50 5f 49 |M{*mylis|t}:POP_I|
|00000780| 54 45 4d 7b 2a 6d 79 6c | 69 73 74 7d 3a dd 82 20 |TEM{*myl|ist}:.. |
|00000790| 22 52 65 73 74 6f 72 65 | 64 20 4c 69 73 74 20 50 |"Restore|d List P|
|000007a0| 6f 73 69 74 69 6f 6e 20 | 3d 20 22 2c 47 45 54 5f |osition |= ",GET_|
|000007b0| 4c 49 53 54 5f 50 4f 53 | 7b 2a 6d 79 6c 69 73 74 |LIST_POS|{*mylist|
|000007c0| 7d 00 20 20 dd 82 20 22 | 22 00 20 20 80 37 20 31 |}.  .. "|".  .7 1|
|000007d0| 30 30 00 00 80 17 20 6c | 6f 6f 70 00 00 3b 53 74 |00.... l|oop..;St|
|000007e0| 6f 70 00 00 80 0b 20 46 | 49 52 53 54 5f 49 54 45 |op.... F|IRST_ITE|
|000007f0| 4d 7b 2a 6d 79 6c 69 73 | 74 7d 20 80 21 20 dd 82 |M{*mylis|t} .! ..|
|00000800| 20 22 46 6f 75 6e 64 20 | 46 69 72 73 74 20 69 74 | "Found |First it|
|00000810| 65 6d 20 3d 20 22 2c 2a | 6d 79 69 74 65 6d 5c 6e |em = ",*|myitem\n|
|00000820| 75 6d 62 65 72 00 80 0b | 20 4c 41 53 54 5f 49 54 |umber...| LAST_IT|
|00000830| 45 4d 7b 2a 6d 79 6c 69 | 73 74 7d 20 80 21 20 dd |EM{*myli|st} .! .|
|00000840| 82 20 22 46 6f 75 6e 64 | 20 4c 61 73 74 20 69 74 |. "Found| Last it|
|00000850| 65 6d 20 3d 20 22 2c 2a | 6d 79 69 74 65 6d 5c 6e |em = ",*|myitem\n|
|00000860| 75 6d 62 65 72 00 00 3b | 53 74 6f 70 00 00 43 4c |umber..;|Stop..CL|
|00000870| 45 41 52 5f 4c 49 53 54 | 7b 2a 6d 79 6c 69 73 74 |EAR_LIST|{*mylist|
|00000880| 7d 00 00 dd 82 20 22 6e | 75 6d 62 65 72 20 6f 66 |}.... "n|umber of|
|00000890| 20 69 74 65 6d 73 20 69 | 6e 20 6c 69 73 74 20 22 | items i|n list "|
|000008a0| 2c 47 45 54 5f 4c 49 53 | 54 5f 53 49 5a 45 7b 2a |,GET_LIS|T_SIZE{*|
|000008b0| 6d 79 6c 69 73 74 7d 2c | 22 20 2d 20 6c 69 73 74 |mylist},|" - list|
|000008c0| 20 63 6c 65 61 72 65 64 | 22 00 00 3b 53 74 6f 70 | cleared|"..;Stop|
|000008d0| 00 00 80 16 20 70 6c 6f | 6f 70 2e 6c 3d 31 20 80 |.... plo|op.l=1 .|
|000008e0| 18 20 31 30 00 00 20 20 | 80 0b 20 bc 07 28 31 30 |. 10..  |.. ..(10|
|000008f0| 29 3e 35 00 20 20 20 20 | 41 44 44 5f 46 49 52 53 |)>5.    |ADD_FIRS|
|00000900| 54 7b 2a 6d 79 6c 69 73 | 74 2c 80 2f 20 2e 62 75 |T{*mylis|t,./ .bu|
|00000910| 6d 69 74 65 6d 7d 00 20 | 20 20 20 2a 6d 79 69 74 |mitem}. |   *myit|
|00000920| 65 6d 5c 64 75 64 65 3d | 22 41 44 44 45 44 20 46 |em\dude=|"ADDED F|
|00000930| 49 52 53 54 20 2d 20 4c | 4f 4f 50 3d 22 2b dd 83 |IRST - L|OOP="+..|
|00000940| 28 70 6c 6f 6f 70 29 2b | 22 20 22 2b dd 83 28 bc |(ploop)+|" "+..(.|
|00000950| 07 28 31 30 30 29 29 00 | 20 20 20 20 2a 6d 79 69 |.(100)).|    *myi|
|00000960| 74 65 6d 5c 6e 75 6d 62 | 65 72 3d 70 6c 6f 6f 70 |tem\numb|er=ploop|
|00000970| 3a 2a 6d 79 69 74 65 6d | 5c 65 74 63 3d bc 07 28 |:*myitem|\etc=..(|
|00000980| 35 30 29 00 20 20 20 20 | 2a 6d 79 69 74 65 6d 5c |50).    |*myitem\|
|00000990| 73 74 72 69 6e 67 20 3d | 20 dd 86 28 70 6c 6f 6f |string =| ..(ploo|
|000009a0| 70 29 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |p);     |        |
|000009b0| 20 20 20 20 41 44 44 45 | 44 20 42 59 20 44 4d 00 |    ADDE|D BY DM.|
|000009c0| 20 20 80 22 00 20 20 20 | 20 41 44 44 5f 4c 41 53 |  .".   | ADD_LAS|
|000009d0| 54 7b 2a 6d 79 6c 69 73 | 74 2c 80 2f 20 2e 62 75 |T{*mylis|t,./ .bu|
|000009e0| 6d 69 74 65 6d 7d 00 20 | 20 20 20 2a 6d 79 69 74 |mitem}. |   *myit|
|000009f0| 65 6d 5c 64 75 64 65 3d | 22 41 44 44 45 44 20 4c |em\dude=|"ADDED L|
|00000a00| 41 53 54 20 2d 20 4c 4f | 4f 50 3d 22 2b dd 83 28 |AST - LO|OP="+..(|
|00000a10| 70 6c 6f 6f 70 29 2b 22 | 20 22 2b dd 83 28 bc 07 |ploop)+"| "+..(..|
|00000a20| 28 31 30 30 30 29 29 00 | 20 20 20 20 2a 6d 79 69 |(1000)).|    *myi|
|00000a30| 74 65 6d 5c 6e 75 6d 62 | 65 72 3d 70 6c 6f 6f 70 |tem\numb|er=ploop|
|00000a40| 3a 2a 6d 79 69 74 65 6d | 5c 65 74 63 3d bc 07 28 |:*myitem|\etc=..(|
|00000a50| 35 30 29 00 20 20 20 20 | 2a 6d 79 69 74 65 6d 5c |50).    |*myitem\|
|00000a60| 73 74 72 69 6e 67 20 3d | 20 dd 86 28 70 6c 6f 6f |string =| ..(ploo|
|00000a70| 70 29 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |p);     |        |
|00000a80| 20 20 20 20 41 44 44 45 | 44 20 42 59 20 44 4d 00 |    ADDE|D BY DM.|
|00000a90| 20 20 80 c0 00 00 80 17 | 20 70 6c 6f 6f 70 00 00 |  ......| ploop..|
|00000aa0| 3b 53 74 6f 70 00 00 53 | 4f 52 54 5f 4c 49 53 54 |;Stop..S|ORT_LIST|
|00000ab0| 5f 44 45 53 43 45 4e 44 | 49 4e 47 7b 2a 6d 79 6c |_DESCEND|ING{*myl|
|00000ac0| 69 73 74 2c 80 2f 20 2e | 62 75 6d 69 74 65 6d 5c |ist,./ .|bumitem\|
|00000ad0| 65 74 63 2c 23 56 41 52 | 54 59 50 45 5f 42 59 54 |etc,#VAR|TYPE_BYT|
|00000ae0| 45 7d 00 00 3b 49 66 20 | 51 55 49 43 4b 5f 53 4f |E}..;If |QUICK_SO|
|00000af0| 52 54 5f 4c 49 53 54 5f | 41 53 43 45 4e 44 49 4e |RT_LIST_|ASCENDIN|
|00000b00| 47 7b 2a 6d 79 6c 69 73 | 74 2c 53 69 7a 65 4f 66 |G{*mylis|t,SizeOf|
|00000b10| 20 2e 62 75 6d 69 74 65 | 6d 5c 65 74 63 2c 23 56 | .bumite|m\etc,#V|
|00000b20| 41 52 54 59 50 45 5f 42 | 59 54 45 7d 00 3b 20 20 |ARTYPE_B|YTE}.;  |
|00000b30| 4e 50 72 69 6e 74 20 22 | 6f 6b 61 79 22 00 3b 45 |NPrint "|okay".;E|
|00000b40| 6c 73 65 00 3b 20 20 4e | 50 72 69 6e 74 20 22 64 |lse.;  N|Print "d|
|00000b50| 6f 68 22 00 3b 45 6e 64 | 49 66 00 00 80 06 20 53 |oh".;End|If.... S|
|00000b60| 48 4f 57 5f 4c 49 53 54 | 00 dd 82 20 22 6e 75 6d |HOW_LIST|... "num|
|00000b70| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|00000b80| 6c 69 73 74 20 22 2c 47 | 45 54 5f 4c 49 53 54 5f |list ",G|ET_LIST_|
|00000b90| 53 49 5a 45 7b 2a 6d 79 | 6c 69 73 74 7d 3b 20 20 |SIZE{*my|list};  |
|00000ba0| 41 44 44 45 44 20 42 59 | 20 44 4d 00 00 dd 82 20 |ADDED BY| DM.... |
|00000bb0| 22 50 52 45 53 53 20 4d | 4f 55 53 45 22 00 00 80 |"PRESS M|OUSE"...|
|00000bc0| 0a 00 00 00 00 3b 20 44 | 41 56 45 20 4d 43 4d 49 |.....; D|AVE MCMI|
|00000bd0| 4e 4e 20 57 41 53 20 48 | 45 52 45 00 3b 20 43 72 |NN WAS H|ERE.; Cr|
|00000be0| 65 61 74 65 20 61 6e 20 | 65 6d 70 74 79 20 6c 69 |eate an |empty li|
|00000bf0| 73 74 00 80 01 2e 6e 6e | 6e 00 20 20 20 20 70 61 |st....nn|n.    pa|
|00000c00| 64 2e 77 00 20 20 20 20 | 6e 61 6d 65 24 00 80 02 |d.w.    |name$...|
|00000c10| 20 80 01 00 80 04 20 80 | b3 20 64 75 6d 6d 79 2e | ..... .|. dummy.|
|00000c20| 6e 6e 6e 28 30 29 00 00 | cf 02 20 30 00 c6 86 20 |nnn(0)..|.. 0... |
|00000c30| 30 2c 31 2c 32 30 2c 32 | 30 2c 32 30 30 2c 32 30 |0,1,20,2|0,200,20|
|00000c40| 30 2c 22 49 74 65 6d 73 | 22 2c 32 2c 64 75 6d 6d |0,"Items|",2,dumm|
|00000c50| 79 28 29 00 c5 01 20 30 | 2c 30 2c 30 2c 36 34 30 |y()... 0|,0,0,640|
|00000c60| 2c 32 35 36 2c 24 31 30 | 30 66 2c 22 61 22 2c 2d |,256,$10|0f,"a",-|
|00000c70| 31 2c 2d 31 00 c6 8e 20 | 30 2c 30 00 c6 93 20 30 |1,-1... |0,0... 0|
|00000c80| 2c 31 2c 23 47 54 4c 56 | 5f 4c 61 62 65 6c 73 2c |,1,#GTLV|_Labels,|
|00000c90| 2a 6d 79 6c 69 73 74 00 | 80 0c 20 65 76 2e 6c 3c |*mylist.|.. ev.l<|
|00000ca0| 3e 24 32 30 30 00 20 20 | 20 20 65 76 20 3d 20 c5 |>$200.  |  ev = .|
|00000cb0| 02 00 80 c1 00 c6 9f 20 | 30 00 80 2b 20 c6 81 20 |....... |0..+ .. |
|00000cc0| 30 00 3b 20 44 41 56 45 | 20 4d 43 4d 49 4e 4e 20 |0.; DAVE| MCMINN |
|00000cd0| 45 4e 44 53 20 48 45 52 | 45 00 00 00 00 3b 64 6f |ENDS HER|E....;do|
|00000ce0| 6e 27 74 20 6e 65 65 64 | 20 74 6f 20 63 6c 65 61 |n't need| to clea|
|00000cf0| 72 6c 69 73 74 2c 20 62 | 65 63 61 75 73 65 20 45 |rlist, b|ecause E|
|00000d00| 4e 44 20 77 6f 75 6c 64 | 20 64 65 61 6c 6c 6f 63 |ND would| dealloc|
|00000d10| 61 74 65 20 61 6c 6c 20 | 6d 65 6d 6f 72 79 20 61 |ate all |memory a|
|00000d20| 6e 79 77 61 79 2c 00 3b | 62 75 74 20 77 65 20 77 |nyway,.;|but we w|
|00000d30| 69 6c 6c 2e 2e 74 6f 20 | 73 68 6f 77 20 69 74 20 |ill..to |show it |
|00000d40| 77 6f 72 6b 73 20 3a 29 | 00 00 43 4c 45 41 52 5f |works :)|..CLEAR_|
|00000d50| 4c 49 53 54 7b 2a 6d 79 | 6c 69 73 74 7d 00 00 00 |LIST{*my|list}...|
|00000d60| 3b 61 6c 74 68 6f 75 67 | 68 20 74 68 65 20 6c 69 |;althoug|h the li|
|00000d70| 73 74 20 69 73 20 63 6c | 65 61 72 65 64 2e 2e 2e |st is cl|eared...|
|00000d80| 69 74 20 69 73 20 73 74 | 69 6c 6c 20 75 73 65 61 |it is st|ill usea|
|00000d90| 62 6c 65 2e 2e 2e 69 65 | 2c 20 69 74 27 73 20 69 |ble...ie|, it's i|
|00000da0| 6e 20 74 68 65 00 3b 73 | 61 6d 65 20 73 74 61 74 |n the.;s|ame stat|
|00000db0| 65 20 61 73 20 77 68 65 | 6e 20 79 6f 75 20 63 72 |e as whe|n you cr|
|00000dc0| 65 61 74 65 20 69 74 2e | 2e 2e 69 65 2c 20 72 65 |eate it.|..ie, re|
|00000dd0| 61 64 79 20 66 6f 72 20 | 61 64 64 5f 69 74 65 6d |ady for |add_item|
|00000de0| 00 00 00 80 02 20 20 20 | 20 20 20 20 20 20 3b 77 |.....   |      ;w|
|00000df0| 69 6c 6c 20 66 69 6e 61 | 6c 6c 79 20 63 6c 65 61 |ill fina|lly clea|
|00000e00| 72 20 6f 75 72 20 6c 69 | 73 74 20 68 65 61 64 65 |r our li|st heade|
|00000e10| 72 21 00 00 00 53 48 4f | 57 5f 4c 49 53 54 3a 00 |r!...SHO|W_LIST:.|
|00000e20| 00 52 45 53 45 54 5f 4c | 49 53 54 7b 2a 6d 79 6c |.RESET_L|IST{*myl|
|00000e30| 69 73 74 7d 00 00 80 0c | 20 4e 45 58 54 5f 49 54 |ist}....| NEXT_IT|
|00000e40| 45 4d 7b 2a 6d 79 6c 69 | 73 74 7d 00 20 20 dd 82 |EM{*myli|st}.  ..|
|00000e50| 20 22 49 74 65 6d 20 4e | 6f 2e 3d 22 2c 47 45 54 | "Item N|o.=",GET|
|00000e60| 5f 4c 49 53 54 5f 50 4f | 53 7b 2a 6d 79 6c 69 73 |_LIST_PO|S{*mylis|
|00000e70| 74 7d 2c 22 20 4e 75 6d | 62 65 72 3d 22 2c 2a 6d |t}," Num|ber=",*m|
|00000e80| 79 69 74 65 6d 5c 6e 75 | 6d 62 65 72 2c 22 20 65 |yitem\nu|mber," e|
|00000e90| 74 63 3d 22 2c 2a 6d 79 | 69 74 65 6d 5c 65 74 63 |tc=",*my|item\etc|
|00000ea0| 00 20 20 dd 82 20 22 44 | 75 64 65 3d 22 2c 2a 6d |.  .. "D|ude=",*m|
|00000eb0| 79 69 74 65 6d 5c 64 75 | 64 65 00 80 c1 00 00 80 |yitem\du|de......|
|00000ec0| 07 00 00 00 00 00 00 00 | 00 00                   |........|..      |
+--------+-------------------------+-------------------------+--------+--------+